home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / libraries / triton11.lha / Triton / Programmer / AmigaOberon / Triton.def < prev    next >
Encoding:
Text File  |  1994-07-14  |  6.2 KB  |  234 lines
  1. DEFINITION Triton;
  2.  
  3. IMPORT
  4.   E := Exec,
  5.   S := SYSTEM,
  6.   U := Utility,
  7.   W := Workbench,
  8.   I := Intuition,
  9.   GT := GadTools,
  10.   G := Graphics;
  11.  
  12. CONST
  13.   tritonName = "triton.library";
  14.   triton10Version = 1;
  15.  
  16. TYPE
  17.   MessagePtr = UNTRACED POINTER TO Message;
  18.   AppPtr = UNTRACED POINTER TO App;
  19.   DimensionsPtr = UNTRACED POINTER TO Dimensions;
  20.   ProjectPtr = UNTRACED POINTER TO Project;
  21.   Message = STRUCT 
  22.     project : ProjectPtr;
  23.     id : E.ULONG;
  24.     class : E.ULONG;
  25.     data : E.ULONG;
  26.     code : E.ULONG;
  27.     qualifier : E.ULONG;
  28.     seconds : E.ULONG;
  29.     micros : E.ULONG;
  30.   END;
  31.   App = STRUCT 
  32.   END;
  33.   Dimensions = STRUCT 
  34.     left : E.UWORD;
  35.     top : E.UWORD;
  36.     width : E.UWORD;
  37.     height : E.UWORD;
  38.     left2 : E.UWORD;
  39.     top2 : E.UWORD;
  40.     width2 : E.UWORD;
  41.     height2 : E.UWORD;
  42.     zoomed : E.BOOL;
  43.     reserved : ARRAY 3 OF E.UWORD;
  44.   END;
  45.   Project = STRUCT 
  46.   END;
  47.  
  48. CONST
  49.   msCloseWindow = 1;
  50.   msError = 2;
  51.   msNewValue = 3;
  52.   msAction = 4;
  53.   msIconDropped = 5;
  54.   msKeyPressed = 6;
  55.   erOk = 0;
  56.   erAllocMem = 1;
  57.   erOpenWindow = 2;
  58.   erWindowTooBig = 3;
  59.   erDrawInfo = 4;
  60.   erOpenFont = 5;
  61.   erCreateMsgPort = 6;
  62.   erInstallObject = 7;
  63.   erCreateClass = 8;
  64.   erNoLockPubScreen = 9;
  65.   erInvalid = 10;
  66.   erNoMem = 11;
  67.   erOtherCreate = 12;
  68.   erLayout = 13;
  69.   erCreateContext = 14;
  70.   wiTitle = (U.user + 1);
  71.   wiFlags = (U.user + 2);
  72.   wiUnderscore = (U.user + 3);
  73.   wiPosition = (U.user + 4);
  74.   wiCustomScreen = (U.user + 5);
  75.   wiPubScreen = (U.user + 6);
  76.   wiPubScreenName = (U.user + 7);
  77.   wiPropFontAttr = (U.user + 8);
  78.   wiFixedWidthFontAttr = (U.user + 9);
  79.   wiBackfill = (U.user + 10);
  80.   wiID = (U.user + 11);
  81.   wiDimensions = (U.user + 12);
  82.   mnTitle = (U.user + 101);
  83.   mnItem = (U.user + 102);
  84.   mnSub = (U.user + 103);
  85.   mnFlags = (U.user + 104);
  86.   atID = (U.user + 150);
  87.   atFlags = (U.user + 151);
  88.   atValue = (U.user + 152);
  89.   atText = (U.user + 153);
  90.   atDisabled = (U.user + 154);
  91.   atBackfill = (U.user + 155);
  92.   atMinWidth = (U.user + 156);
  93.   atMinHeight = (U.user + 157);
  94.   user = (U.user + 800);
  95.   magicObjBeg = (U.user + 200);
  96.   magicObjEnd = (U.user + 999);
  97.   magicSpcBeg = (U.user + 900);
  98.   magicSpcEnd = (U.user + 999);
  99.   wiBackDrop = 000000001H;
  100.   wiNoDragBar = 000000002H;
  101.   wiNoDepthGadget = 000000004H;
  102.   wiNOCloseGadget = 000000008H;
  103.   wiNoActivate = 000000010H;
  104.   wiNoEscClose = 000000020H;
  105.   wiNoPScrFallback = 000000040H;
  106.   wiNoZipGadget = 000000080H;
  107.   wiZipCenterTop = 000000100H;
  108.   wiNoMinTextWidth = 000000200H;
  109.   wiNoSizeGadget = 000000400H;
  110.   wiNoFontFallback = 000000800H;
  111.   wiNoDelZip = 000001000H;
  112.   wiSimpleRefresh = 000002000H;
  113.   wiZipToCurrentPos = 000004000H;
  114.   wiAppWindow = 000008000H;
  115.   wiActivateStrGad = 000010000H;
  116.   mnCheckIt = 000000001H;
  117.   mnChecked = 000000002H;
  118.   mnDisabled = 000000004H;
  119.   wpDefault = 0;
  120.   wpBelowTitlebar = 1;
  121.   wpCenterTop = 1025;
  122.   wpTopLeftScreen = 1026;
  123.   wpCenterScreen = 1027;
  124.   wpCenterDisplay = 1028;
  125.   wpMousePointer = 1029;
  126.   bfWindowBack = 0;
  127.   bfRequesterBack = 1;
  128.   bfNone = 2;
  129.   bfShine = 3;
  130.   bfShineShadow = 4;
  131.   bfShineFill = 5;
  132.   bfShineBackground = 6;
  133.   bfShadow = 7;
  134.   bfShadowFill = 8;
  135.   bfShadowBackground = 9;
  136.   bfFill = 10;
  137.   bfFillBackground = 11;
  138.   ofRaised = 000000001H;
  139.   ofHoriz = 000000002H;
  140.   ofVert = 000000004H;
  141.   txNoUnderscore = 000000100H;
  142.   txHighlight = 000000200H;
  143.   tx3D = 000000400H;
  144.   txBold = 000000800H;
  145.   txTitle = 000001000H;
  146.   menuBarLabel = -1;
  147.   caName = (U.user + 1);
  148.   caLongName = (U.user + 2);
  149.   caInfo = (U.user + 3);
  150.   caVersion = (U.user + 4);
  151.   caRelease = (U.user + 5);
  152.   caDate = (U.user + 6);
  153.   ezReqPos = (U.user + 1);
  154.   ezLockProject = (U.user + 2);
  155.   ezReturn = (U.user + 3);
  156.   ezTitle = (U.user + 4);
  157.   ezActivate = (U.user + 5);
  158.   obButton = (U.user + 305);
  159.   obCheckBox = (U.user + 303);
  160.   obCycle = (U.user + 310);
  161.   obFrameBox = (U.user + 306);
  162.   obDropBox = (U.user + 312);
  163.   grHoriz = (U.user + 201);
  164.   grVert = (U.user + 202);
  165.   grEnd = (U.user + 203);
  166.   obLine = (U.user + 301);
  167.   obPalette = (U.user + 307);
  168.   obScroller = (U.user + 309);
  169.   obSlider = (U.user + 308);
  170.   obSpace = (U.user + 901);
  171.   obString = (U.user + 311);
  172.   obText = (U.user + 304);
  173.   obListview = (U.user + 313);
  174.   obProgress = (U.user + 314);
  175.   buReturnOk = 000010000H;
  176.   buEscOk = 000020000H;
  177.   buShifted = 000040000H;
  178.   buUnshifted = 000080000H;
  179.   btText = 0;
  180.   btGetFile = 1;
  181.   btGetDrawer = 2;
  182.   btGetEntry = 3;
  183.   grPropShare = 000000000H;
  184.   grEqualShare = 000000001H;
  185.   grPropSpaces = 000000002H;
  186.   grArray = 000000004H;
  187.   grAlign = 000000008H;
  188.   grCenter = 000000010H;
  189.   grFixHoriz = 000000020H;
  190.   grFixVert = 000000040H;
  191.   scTotal = (U.user + 1504);
  192.   scVisible = (U.user + 1505);
  193.   slMin = (U.user + 1502);
  194.   slMax = (U.user + 1503);
  195.   stNone = 1;
  196.   stSmall = 2;
  197.   stNormal = 3;
  198.   stBig = 4;
  199.   lvTop = (U.user + 1506);
  200.   lvReadOnly = 000010000H;
  201.   lvSelect = 000020000H;
  202.   lvShowSelected = 000040000H;
  203.   lvNoCursorKeys = 000080000H;
  204.   lvNoNumPadKeys = 000100000H;
  205.   lvFWFont = 000200000H;
  206.  
  207. VAR
  208.   base : E.LibraryPtr;
  209.  
  210. PROCEDURE OpenProject(app: AppPtr; taglist: ARRAY OF U.TagItem): ProjectPtr;
  211. PROCEDURE CloseProject(project: ProjectPtr);
  212. PROCEDURE FirstOccurance(ch: E.UBYTE; str: E.STRPTR): E.LONG;
  213. PROCEDURE NumOccurances(ch: E.UBYTE; str: E.STRPTR): E.LONG;
  214. PROCEDURE GetErrorString(num: E.UWORD): E.STRPTR;
  215. PROCEDURE CloseWindowSafely(win: I.WindowPtr);
  216. PROCEDURE GetMsg(app: AppPtr): MessagePtr;
  217. PROCEDURE ReplyMsg(msg: MessagePtr);
  218. PROCEDURE Wait(app: AppPtr; otherbits: E.ULONG): E.ULONG;
  219. PROCEDURE SetAttribute(prj: ProjectPtr; id: E.ULONG; attribute: E.ULONG; value: E.ULONG);
  220. PROCEDURE GetAttribute(prj: ProjectPtr; id: E.ULONG; attribute: E.ULONG): E.ULONG;
  221. PROCEDURE LockProject(prj: ProjectPtr);
  222. PROCEDURE UnlockProject(prj: ProjectPtr);
  223. PROCEDURE AutoRequest(app: AppPtr; lockproject: ProjectPtr; requestTRWindowTags: ARRAY OF U.TagItem): E.ULONG;
  224. PROCEDURE EasyRequest(app: AppPtr; bodyfmt: E.STRPTR; gadfmt: E.STRPTR; taglist: ARRAY OF U.TagItem): E.ULONG;
  225. PROCEDURE CreateApp(apptags: ARRAY OF U.TagItem): AppPtr;
  226. PROCEDURE DeleteApp(app: AppPtr);
  227. PROCEDURE OpenProjectTags(app: AppPtr; tag..: U.Tag): ProjectPtr;
  228. PROCEDURE AutoRequestTags(app: AppPtr; lockproject: ProjectPtr; tag..: U.Tag): E.ULONG;
  229. PROCEDURE EasyRequestTags(app: AppPtr; bodyfmt: E.STRPTR; gadfmt: E.STRPTR; tag..: U.Tag): E.ULONG;
  230. PROCEDURE CreateAppTags(apptags..: U.Tag): AppPtr;
  231.  
  232. END Triton.
  233.  
  234.